home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / mus / play / SPLibDev.lha / superplay-lib_DEV / Programmers / AmigaE / super.e < prev    next >
Encoding:
Text File  |  1997-08-15  |  1.6 KB  |  68 lines
  1. OPT OSVERSION=37
  2.  
  3. MODULE 'superplay',
  4.        'libraries/superplay',
  5.        '*super_rev'
  6.  
  7. DEF err,handle:PTR TO LONG
  8. PROC main() HANDLE
  9.    checkarg()
  10.    openlibs()
  11.    play()
  12.    domenu()
  13.    eject(NIL)
  14. EXCEPT DO
  15. SELECT exception
  16.   DEFAULT
  17.      eject('Unkown error!')
  18. ENDSELECT
  19. ENDPROC
  20.  
  21. PROC usage()
  22.    eject('Usage: supEr <filename>')
  23.    CleanUp(0)
  24. ENDPROC
  25.  
  26. PROC closenkill(base)
  27.    IF base THEN CloseLibrary(base)
  28.    IF base THEN base:=0
  29. ENDPROC
  30.  
  31. PROC eject(errstr)
  32. DEF dummy
  33.    IF handle THEN SpL_FreeHandle(handle)
  34.    IF superplaybase THEN closenkill(superplaybase)
  35.    IF errstr THEN dummy:=msg(errstr,NIL,'CLI-Tracker Error')
  36.    CleanUp(0)
  37. ENDPROC
  38.  
  39. PROC msg(msgstring,buttxt=NIL,header=NIL)
  40. DEF dummy
  41.    dummy:=EasyRequestArgs(0,[20,0,IF header THEN header ELSE 'CLI-Tracker Request',msgstring,IF buttxt THEN buttxt ELSE ' OK '],0,NIL)
  42. ENDPROC dummy
  43.  
  44. PROC play()
  45.    SpL_InitHandleAsDOS(handle,NIL) /* Please note: SpL NOT SPL !!! */
  46.    IF (err:=SpL_SuperPlay(handle,arg))<>NIL THEN eject(SpL_GetErrorString(err))
  47. ENDPROC
  48.  
  49. PROC openlibs()
  50.    IF (superplaybase:=OpenLibrary('superplay.library',6))=0 THEN eject('Could not open superplay.library v6')
  51.    IF (handle:=SpL_AllocHandle(NIL))=NIL THEN eject('Could not allocate handle')
  52. ENDPROC
  53.  
  54. PROC checkarg()
  55.    IF StrCmp(arg,'?',ALL) THEN usage()
  56. ENDPROC
  57.  
  58. PROC domenu()
  59.    PrintF('\nsupEr \d.\d © Frits Letteboer <dagraver@dds.nl> \nThis is an example how to use Superplay.library in AmigaE\n\n',VERSION,REVISION)
  60.    PrintF('\nsupEr is now playing "\s"...\n\nPress CTRL-C to quit',FilePart(arg))
  61.    REPEAT
  62.    Delay(100)
  63.    UNTIL CtrlC()
  64.    PrintF('\n')
  65. ENDPROC
  66.  
  67.  
  68.